home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Users Group Library 1996 July / C-C++ Users Group Library July 1996.iso / vol_200 / 255_01 / gppal.asm < prev    next >
Encoding:
Assembly Source File  |  1988-03-28  |  640 b   |  36 lines
  1.           page   80,132
  2.           page
  3. ;
  4. ;         Kent Cedola
  5. ;         2015 Meadow Lake Court
  6. ;         Norfolk, Virginia  23518
  7. ;
  8.  
  9. _text     segment byte public 'code'
  10.  
  11.           public _gppal
  12.  
  13.           ASSUME CS:_TEXT
  14.  
  15. _gppal    proc   near
  16.  
  17.           push   bp
  18.           mov    bp,sp
  19.  
  20.           mov    Bl,[bp+4]
  21.           mov    Bh,[bp+6]
  22.           mov    AX,1000h
  23.           or     BL,BL
  24.           jns    L1
  25.           mov    AL,01
  26. L1:
  27.           INT    10h
  28.  
  29.           pop    bp
  30.           ret
  31.  
  32. _gppal    endp
  33.  
  34. _TEXT     ends
  35.           END
  36.